Unit
lmdformA

Declaration

TLMDSysMenuClickEvent = procedure(Sender:TObject; Index:Integer; aCaption:String) of object;